home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #5 / Amiga Plus CD - 1996 - No. 5.iso / pd / grafik / jacosub / rexx / savescript.jsrx < prev    next >
Text File  |  1993-12-25  |  468b  |  22 lines
  1. /* JACOsub SAVESCRIPT command demonstration.
  2.    This command causes JACOsub save the script currently in memory
  3.    to a the specified file.
  4.  
  5.    SAVESCRIPT returns RESULT=0 if successful, or RESULT=1 if a problem
  6.    occurred.
  7. */
  8.  
  9. if ~arg() then do ; say 'No file name.' ; exit 1 ; end
  10.  
  11. parse arg filename
  12. options results
  13.  
  14. address 'JACOsub'
  15. 'SAVESCRIPT' filename
  16.  
  17. if result then
  18.     say 'script failed to be written'
  19. else
  20.     say 'script was written successfully'
  21. exit result
  22.